home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / BANDSTOP.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  2.4 KB  |  87 lines
  1. 10  'BANDSTOP - Band Reject Filter - 26 JUN 94 rev. 27 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  UL$=STRING$(80,205)
  5. 50  U$="##,###.##"
  6. 60  '
  7. 70  '.....start
  8. 80  COLOR 15,2,1
  9. 90  PRINT " BAND-REJECT FILTER";TAB(57);"by George Murphy VE3ERP ";
  10. 100  COLOR 1,0
  11. 110  PRINT STRING$(80,"<0xDF!>");
  12. 120  COLOR 7,0
  13. 130  '
  14. 140  '.....diagram
  15. 150  RO=0     'row
  16. 160  CO=17    'column
  17. 170  COLOR 0,7
  18. 180  LOCATE RO+3, CO:PRINT "            VARPTRSOUNDSOUND C2 SOUNDSOUNDCOLOR   VARPTRSOUNDSOUND C2 SOUNDSOUNDCOLOR            "
  19. 190  LOCATE RO+4, CO:PRINT "            CALL        CALL   CALL        CALL            "
  20. 200  LOCATE RO+5, CO:PRINT "     VARPTRSOUNDSOUNDSOUNDSOUNDBSAVESOUNDMOTORSOUNDSOUND L2 SOUNDSOUNDMOTORSOUNDBSAVESOUNDMOTORSOUNDSOUND L2 SOUNDSOUNDMOTORSOUNDBSAVESOUNDSOUNDSOUNDSOUNDCOLOR     "
  21. 210  LOCATE RO+6, CO:PRINT "   SOUNDSOUND'    L1           L3           L1   CLSSOUNDSOUND   "
  22. 220  LOCATE RO+7, CO:PRINT " Z - -DEFDBL   CALL            CALL            CALL   SOUNDDEFDBL Z - "
  23. 230  LOCATE RO+8, CO:PRINT "   SOUNDSOUNDCOLOR    C1           C3           C1   VARPTRSOUNDSOUND   "
  24. 240  LOCATE RO+9, CO:PRINT "     CLSSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUND'     "
  25. 250  LOCATE RO+10,CO:PRINT "               \\MOTOR\\ DEFSNGSOUNDSOUNDstation RF ground      "
  26. 260  COLOR 7,0
  27. 270  LOCATE RO+12,3
  28. 280  PRINT UL$;
  29. 290  COLOR 0,7:LOCATE CSRLIN,22
  30. 300  PRINT " Press 1 to continue or 0 to exit...."
  31. 310  COLOR 7,0
  32. 320  Z$=INKEY$:IF Z$=""THEN 320
  33. 330  IF Z$="0"THEN CLS:RUN EX$
  34. 340  IF Z$="1"THEN 360
  35. 350  GOTO 320
  36. 360  LOCATE CSRLIN-2:PRINT STRING$(80,32);:LOCATE CSRLIN-2
  37. 370  PRINT " House filter in an RF-tight metal box, placed in the receiver ";
  38. 380  PRINT "antenna line"
  39. 390  PRINT UL$;
  40. 400  GOTO 470
  41. 410  '
  42. 420  '.....re-format input line
  43. 430  LOCATE CSRLIN-1:PRINT STRING$(8,32);
  44. 440  LOCATE CSRLIN,60:PRINT USING U$;X;:PRINT " "+Y$
  45. 450  RETURN
  46. 460  '
  47. 470  '.....inputs
  48. 480  INPUT " ENTER: Frequency of LOW  end of unwanted band..........F1= (MHz)";X
  49. 490  Y$="MHz":GOSUB 420:F1=X
  50. 500  INPUT " ENTER: Frequency of HIGH end of unwanted band..........F2= (MHz)";X
  51. 510  Y$="MHz":GOSUB 420:F2=X
  52. 520  INPUT " ENTER: Impedance of transmission line...................Z=(ohms)";X
  53. 530  Y$="-":GOSUB 420:R=X
  54. 540  '.....calculate
  55. 550  L1=0.318*R/(F2-F1)
  56. 560  L2=0.0796*(F2-F1)*R/(F1*F2)
  57. 570  L2 =L2*2
  58. 580  L3=L1/2
  59. 590  C1=7.96*(F2-F1)*10^4/(F1*F2*R)
  60. 600  C2=3.18*10^5/((F2-F1)*R)
  61. 610  C2=C2/2
  62. 620  C3=C1*2
  63. 630  '.....print
  64. 640  PRINT TAB(57);"L1=";USING U$;L1;:PRINT " >H"
  65. 650  PRINT TAB(57);"L2=";USING U$;L2;:PRINT " >H"
  66. 660  PRINT TAB(57);"L3=";USING U$;L3;:PRINT " >H"
  67. 670  PRINT TAB(57);"C1=";USING U$;C1;:PRINT " pF"
  68. 680  PRINT TAB(57);"C2=";USING U$;C2;:PRINT " pF"
  69. 690  PRINT TAB(57);"C3=";USING U$;C3;:PRINT " pF"
  70. 700  PRINT UL$;
  71. 710  GOSUB 740
  72. 720  CLS:GOTO 70
  73. 730  '
  74. 740  'HARDCOPY
  75. 750  GOSUB 860:LOCATE 25,2:COLOR 14,6
  76. 760  PRINT " Press 1 to print screen, 2 to print screen & ";
  77. 770  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  78. 780  Z$=INKEY$:IF Z$="3"THEN GOSUB 860:RETURN
  79. 790  IF Z$="1"OR Z$="2"THEN GOSUB 860:GOTO 810
  80. 800  GOTO 780
  81. 810  FOR QX=1 TO 24:FOR QY=1 TO 80
  82. 820  LPRINT CHR$(SCREEN(QX,QY));
  83. 830  NEXT QY:NEXT QX
  84. 840  IF Z$="2"THEN LPRINT CHR$(12)
  85. 850  GOTO 750
  86. 860  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  87.